
    |||  |||  |||  |||||||  |||  |||  |||||||  |||         ||||
    |||  |||  |||  |||||||  |||  |||  ||| |||  |||        ||||
    |||  |||  |||  ||||     |||  |||  ||| |||  |||       |||||
    |||  |||  |||     ||||  |||  |||  |||||||  |||      |||  |||
     ||||||   |||  |||||||  ||||||||  ||| |||  |||||||  |||  |||
     ||||||   |||  |||||||  ||||||||  ||| |||  |||||||   ||||||

Obrigado por baixar este cdigo!!!

No tente copiar o cdigo, mas tente compreender a lgica e o 
funcionamento e apartir desse e outros criar o seu prprio cdigo.

Eu no sei muita coisa mais qualquer dvida que eu poder ajuda-lo
entre em contato!!!

Coloquei o nome nos componentes de acordo com sua funcionalidade
Ex: CmdSubtrair
    lblTela


** Variaveis **

Dim valor1 As Double, valor2 As Double  'Informa ao VB para guardar com mxima preciso o valor
Dim operacao As String                  'Informa que a variavel  Literal
Dim limpartela As Boolean               'A variavel s tem duas condies (True ou False)


** Boto Adio **

Private Sub CmdAdicao_Click()
valor1 = Val(LblTela.Caption)
operacao = "+"
LblTela.Caption = ""
End Sub


** Boto Subtrir **

Private Sub CmdSubtrair_Click()
valor1 = Val(LblTela.Caption)
operacao = "-"
LblTela.Caption = ""
End Sub


** Boto Multiplicar **

Private Sub CmdMultiplicar_Click()
valor1 = Val(LblTela.Caption)
operacao = "*"
LblTela.Caption = ""
End Sub


** Boto Dividir **

Private Sub CmdDividir_Click()
valor1 = Val(LblTela.Caption)
operacao = "/"
LblTela.Caption = ""
End Sub


** Boto Igual **

Private Sub CmdIgual_Click()
Dim resultado As Double
   valor2 = Val(LblTela.Caption)
If operacao = "+" Then resultado = valor1 + valor2
If operacao = "*" Then resultado = valor1 * valor2
If operacao = "-" Then resultado = valor1 - valor2
If operacao = "/" And valor2 <> 0 Then
resultado = valor1 / valor2
End If
LblTela.Caption = resultado
limpartela = True
End Sub

** Boto Limpar **

Private Sub CmdLimpar_Click()
LblTela.Caption = ""
End Sub


** Boto Ponto "." **

Private Sub CmdPonto_Click()
If InStr(LblTela.Caption, ".") Then
Exit Sub
Else
LblTela.Caption = LblTela.Caption + "."
End If
End Sub


** Boto Digito (0..9) **

Private Sub CmdDigito_Click(Index As Integer)   'Criei um array de controles para facilitar
If limpartela Then
LblTela.Caption = ""
limpartela = False
End If
LblTela.Caption = LblTela.Caption + CmdDigito(Index).Caption
End Sub

